program main(input, output);

procedure dur(var a, b:integer);
begin
	a:=3;
	b:=6;
end;

function sub(i,j:integer):integer;
begin
	sub:=i-j;
end;

function add(i,j:integer):integer;
var cst:integer;
begin
	add:=i+j;
	dur(i, j);
	cst:=sub(i,j);
	read(cst);
	
end;

var a, b, c:integer;

begin
	a:=1;
	b:=5;
	c:=6;
	
	write(' a:=', a, ' b:=', b, ' c:=', c);
	
end.
